home *** CD-ROM | disk | FTP | other *** search
/ Teach Your Children: Road Construction Ahead / Teach Your Children: Road Construction Ahead.iso / pc / rca / road.dxr / 00145_coverList.ls < prev    next >
Encoding:
Text File  |  1996-07-17  |  3.1 KB  |  23 lines
  1. on outputCoverList
  2.   global n, NE, E, SE, s, SW, w, NW
  3.   set covList to [:]
  4.   addProp(covList, "X", [#NW: [NE, w, SW, SE, NW + NW, n], #n: [NW, NE, SW, SE, n + NW, n + NE], #NE: [NW, n, E, SW, SE, NE + NE], #w: [NW, NE, SW, SE, w + NW, w + SW], #E: [NW, NE, SW, SE, E + NE, E + SE], #SW: [NW, NE, SE, s, w, SW + SW], #s: [NW, NE, SE, SW, s + SW, s + SE], #SE: [NW, NE, E, s, SW, SE + SE]])
  5.   addProp(covList, #n, [#w: [SE, SW, w + SW], #E: [SW, SE, E + SE], #SW: [w, s, SE, E, SW + SW], #s: [SW, SE, s + SE, s + SW], #SE: [SW, s, E, SE + SE]])
  6.   addProp(covList, "N+", [#NW: [NE, w, SW, SE], #NE: [NW, E, SW, SE], #w: [NW, NE, SW, SE, w + NW, w + SW], #E: [NW, NE, SW, SE, E + NE, E + SE], #SW: [NW, NE, SE, s, w, SW + SW], #s: [NW, NE, SE, SW, s + SW, s + SE], #SE: [NW, NE, E, s, SW, SE + SE]])
  7.   addProp(covList, #NE, [#w: [SW, w + SW], #SW: [w, s, SW + SW], #s: [SW, s + SW]])
  8.   addProp(covList, "NE+", [#NW: [NE, w, SW, SE], #NE: [NW, SW, SE], #w: [NW, NE, SW, SE, w + NW, w + SW], #SW: [NW, NE, SE, s, w, SW + SW], #s: [NW, NE, SE, SW, s + SW, s + SE], #SE: [NW, NE, s, SW]])
  9.   addProp(covList, #E, [#NW: [w, SW, NW + NW, n], #n: [NW, SW, n + NW], #w: [NW, SW, w + NW, w + SW], #SW: [NW, s, w, SW + SW], #s: [NW, SW, s + SW]])
  10.   addProp(covList, "E+", [#NW: [NE, w, SW, SE, NW + NW, n], #n: [NW, NE, SW, SE, n + NW, n + NE], #NE: [NW, n, SW, SE], #w: [NW, NE, SW, SE, w + NW, w + SW], #SW: [NW, NE, SE, s, w, SW + SW], #s: [NW, NE, SE, SW, s + SW, s + SE], #SE: [NW, NE, s, SW]])
  11.   addProp(covList, #SE, [#NW: [w, NW + NW, n], #n: [NW, n + NW], #w: [NW, w + NW]])
  12.   addProp(covList, "SE+", [#NW: [NE, w, SW, SE, NW + NW, n], #n: [NW, NE, SW, SE, n + NW, n + NE], #NE: [NW, n, SW, SE], #w: [NW, NE, SW, SE, w + NW, w + SW], #SW: [NW, NE, SE, w], #SE: [NW, NE, E, SW]])
  13.   addProp(covList, #s, [#NW: [NE, w, NW + NW, n], #n: [NW, NE, n + NW, n + NE], #NE: [NW, n, E, NE + NE], #w: [NW, NE, w + NW], #E: [NW, NE, E + NE]])
  14.   addProp(covList, "S+", [#NW: [NE, w, SW, SE, NW + NW, n], #n: [NW, NE, SW, SE, n + NW, n + NE], #NE: [NW, n, E, SW, SE, NE + NE], #w: [NW, NE, SW, SE, w + NW, w + SW], #E: [NW, NE, SW, SE, E + NE, E + SE], #SW: [NW, NE, SE, w], #SE: [NW, NE, E, SW]])
  15.   addProp(covList, #SW, [#n: [NE, n + NE], #NE: [n, E, NE + NE], #E: [NE, E + NE]])
  16.   addProp(covList, "SW+", [#NW: [NE, SW, SE, n], #n: [NW, NE, SW, SE, n + NW, n + NE], #NE: [NW, n, E, SW, SE, NE + NE], #E: [NW, NE, SW, SE, E + NE, E + SE], #SW: [NW, NE, SE], #SE: [NW, NE, E, SW]])
  17.   addProp(covList, #w, [#n: [NE, SE, n + NE], #NE: [n, E, SE, NE + NE], #E: [NE, SE, E + NE, E + SE], #s: [NE, SE, s + SE], #SE: [NE, E, s, SE + SE]])
  18.   addProp(covList, "W+", [#NW: [NE, SW, SE, n], #n: [NW, NE, SW, SE, n + NW, n + NE], #NE: [NW, n, E, SW, SE, NE + NE], #E: [NW, NE, SW, SE, E + NE, E + SE], #SW: [NW, NE, SE, s], #s: [NW, NE, SE, SW, s + SW, s + SE], #SE: [NW, NE, E, s, SW, SE + SE]])
  19.   addProp(covList, #NW, [#E: [SE, SE + E], #s: [SE, SE + E], #SE: [E, s, SE + SE]])
  20.   addProp(covList, "NW+", [#NW: [NE, SW, SE], #NE: [NW, E, SW, SE], #E: [NW, NE, SW, SE, E + NE, E + SE], #SW: [NW, NE, SE, s], #s: [NW, NE, SE, SW, s + SW, s + SE], #SE: [NW, NE, E, s, SW, SE + SE]])
  21.   put covList
  22. end
  23.